home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / multipik.zip / MULTIPIK.BAS < prev    next >
BASIC Source File  |  1991-10-15  |  1KB  |  36 lines
  1. Type Rect
  2.     left As Integer
  3.     top As Integer
  4.     right As Integer
  5.     BOTTOM As Integer
  6. End Type
  7.  
  8. Declare Function CreateWindow% Lib "User" (ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hWndParent%, ByVal hMenu%, ByVal hInstance%, ByVal lpParam$)
  9. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  10. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As Rect)
  11. Declare Function GetFocus Lib "User" () As Integer
  12. Declare Function SendDlgItemMessage Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  13. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  14. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  15.  
  16. Global Const GWW_HINSTANCE = (-6)
  17.  
  18. Global Const LBS_MULTIPICK = &H50A0000B '(LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER Or LBS_MULTIPLESEL Or WS_CHILD Or WS_VISIBLE)
  19.  
  20. Global Const WM_USER = &H400
  21.  
  22. Global Const LB_ADDSTRING = (WM_USER + 1)
  23. Global Const LB_GETCOUNT = (WM_USER + 12)
  24. Global Const LB_GETSELCOUNT = (WM_USER + 17)
  25. Global Const LB_GETSELITEMS = (WM_USER + 18)
  26. Global Const LB_GETTEXT = (WM_USER + 10)
  27.  
  28. Global Const SM_CYCAPTION = 4
  29.  
  30. Global Const SW_HIDE = 0
  31. Global Const SW_SHOW = 1
  32.  
  33. Global Const TRUE = -1
  34. Global Const FALSE = 0
  35.  
  36.